home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
gbrowse.zip
/
TEST.PRG
< prev
next >
Wrap
Text File
|
1992-07-12
|
2KB
|
46 lines
**************************************************************************
*
* Test.prg - Test program to demonstrate the new get object type: Browse.
*
* (c) Copyright 1992, John D. Lay
* All rights reserved.
*
* For more information please contact me via CompuServe
*
* John Lay
* 70441,1543
*
#include "gbrowse.ch"
**************************************************************************
FUNCTION MAIN()
LOCAL nField := 0, cField := "test"
LOCAL GetList := {}
USE TEST ALIAS myname
SET COLOR TO "+W/N,B/W,,,+W/B"
CLS
@ 8, 1 SAY "Test"
@ 9, 2 SAY " Get 1:"
@ 10, 2 SAY "Browse Get:"
@ 14, 2 SAY " Get 3:"
@ 9, 14 GET nField PICTURE "9999"
@ 10, 14 TO 12, 35 BROWSE ; // Browse Get
ALIAS myname ; // File Alias to browse
PICTURE "!!!!!!!!!!" ; // Picture for get
COLOR "+W/B,B/W,,,+W/B" ; // Browse colors (&get)
FIELDS F1,F2 ; // Fields to browse
DEFAULT F1 TO "ABC", F2 TO "EFG" ; // default values
VALID IF((GETACTIVE():name)=="F1",; // Valid for get
IF((GETACTIVE():buffer)="ABC", .T.,.F. ), ;
.T. ) ;
FOR myname->F1="ABC" // Scope of browse
@ 14, 14 GET cField PICTURE "@!"
READ
RETURN NIL
**************************************************************************